home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / a6 / a6.dir / 00024_QUIT toggle.ls < prev    next >
Encoding:
Text File  |  1996-08-19  |  284 b   |  15 lines
  1. on mouseDown
  2.   puppetSprite(38, 1)
  3.   set the memberNum of sprite 38 to the number of member "QUIT ON"
  4.   updateStage()
  5. end
  6.  
  7. on mouseUp
  8.   set the memberNum of sprite 38 to the number of member "QUIT OFF"
  9.   updateStage()
  10.   puppetSprite(38, 0)
  11.   unsetQT(5)
  12.   SetReturn()
  13.   go("QUIT")
  14. end
  15.